(command-line): Set buffer-offer-save in *scratch* and enable auto-save in it.
authorRichard M. Stallman <rms@gnu.org>
Tue, 3 Jul 2007 02:54:42 +0000 (02:54 +0000)
committerRichard M. Stallman <rms@gnu.org>
Tue, 3 Jul 2007 02:54:42 +0000 (02:54 +0000)
lisp/startup.el

index 1943367dfc8241d0bd2f94835addb55a76e70aeb..4e43b39bfd4bcf3d3cecd441a4442739e16fa05c 100644 (file)
@@ -1055,7 +1055,10 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
   (if (get-buffer "*scratch*")
       (with-current-buffer "*scratch*"
        (if (eq major-mode 'fundamental-mode)
-           (funcall initial-major-mode))))
+           (funcall initial-major-mode))
+       ;; Don't lose text that users type in *scratch*.
+       (setq buffer-offer-save t)
+       (auto-save-mode 1)))
 
   ;; Load library for our terminal type.
   ;; User init file can set term-file-prefix to nil to prevent this.